home *** CD-ROM | disk | FTP | other *** search
/ Liberation Day / Liberation Day.bin / AcroRd32.exe / PSPROCSET / 5 < prev    next >
Text File  |  1997-04-23  |  10KB  |  557 lines
  1. %%BeginFile: pdf.prc
  2. %%Copyright: Copyright 1987-1996 Adobe Systems Incorporated. All Rights Reserved.
  3. /initialize {
  4. _ColorSep5044? {sep_ops begin 50 dict begin} if
  5. newpath
  6. } bd
  7. /terminate {
  8. _ColorSep5044? {end end} if
  9. } bd
  10. Level2? StartLoad
  11. { /m/moveto ld
  12. /l/lineto ld
  13. /c/curveto ld
  14. /setSA/setstrokeadjust ld
  15. } EndLoad
  16. Level2? not StartLoad
  17. {
  18. /pl {
  19. transform
  20. 0.25 sub round 0.25 add exch
  21. 0.25 sub round 0.25 add exch
  22. itransform
  23. } bd
  24. /m { _sa? { pl } if moveto } bd
  25. /l { _sa? { pl } if lineto } bd
  26. /c { _sa? { pl } if curveto } bd
  27. /setSA { /_sa? xdd } bd
  28. } EndLoad
  29. /v { currentpoint 6 2 roll c } bd
  30. /y { 2 copy c } bd
  31. /h/closepath ld
  32. /d/setdash ld
  33. /j/setlinejoin ld
  34. /J/setlinecap ld
  35. /M/setmiterlimit ld
  36. /w/setlinewidth ld
  37. /cf currentflat def
  38. /i {
  39. dup 0 eq { pop cf } if
  40. setflat
  41. } bd
  42. /ilp { /_lp /none dd } bd
  43. /sfc {
  44. _lp /fill ne {
  45. _sfcs
  46. _sfc
  47. /_lp /fill dd
  48. } if
  49. } dd
  50. /ssc {
  51. _lp /stroke ne {
  52. _sscs
  53. _ssc
  54. /_lp /stroke dd
  55. } if
  56. } dd
  57. /n {
  58. _doClip 1 ge {
  59. _doClip 1 eq { clip } { eoclip } ifelse
  60. /_doClip 0 dd
  61. } if
  62. newpath
  63. } bd
  64. /f {
  65. _doClip 1 ge
  66. {
  67. gsave sfc fill grestore
  68. _doClip 1 eq { clip } { eoclip } ifelse
  69. newpath
  70. ilp
  71. /_doClip 0 dd
  72. }
  73. { sfc fill }
  74. ifelse
  75. } bd
  76. /f* {
  77. _doClip 1 ge
  78. {
  79. gsave sfc eofill grestore
  80. _doClip 1 eq { clip } { eoclip } ifelse
  81. newpath
  82. ilp
  83. /_doClip 0 dd
  84. }
  85. { sfc eofill }
  86. ifelse
  87. } bd
  88. /S {
  89. _doClip 1 ge
  90. {
  91. gsave ssc stroke grestore
  92. _doClip 1 eq { clip } { eoclip } ifelse
  93. newpath
  94. ilp
  95. /_doClip 0 dd
  96. }
  97. { ssc stroke }
  98. ifelse
  99. } bd
  100. /s { h S } bd
  101. /B {
  102. _doClip dup 1 ge
  103. gsave f grestore
  104. {
  105. gsave S grestore
  106. 1 eq { clip } { eoclip } ifelse
  107. newpath
  108. ilp
  109. /_doClip 0 dd
  110. }
  111. { pop S }
  112. ifelse
  113. } bd
  114. /b { h B } bd
  115. /B* {
  116. _doClip dup 1 ge
  117. gsave f* grestore
  118. {
  119. gsave S grestore
  120. 1 eq { clip } { eoclip } ifelse
  121. newpath
  122. ilp
  123. /_doClip 0 dd
  124. }
  125. { pop S }
  126. ifelse
  127. } bd
  128. /b* { h B* } bd
  129. /W { /_doClip 1 dd } bd
  130. /W* { /_doClip 2 dd } bd
  131. /q/save ld
  132. /Q { restore ilp } bd
  133. Level2? StartLoad
  134. { /defineRes/defineresource ld
  135. /findRes/findresource ld
  136. currentglobal
  137. true systemdict /setglobal get exec
  138. [/Function /ExtGState /Form]
  139. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  140. forall
  141. systemdict /setglobal get exec
  142. } EndLoad
  143. Level2? not StartLoad
  144. { /AlmostFull?
  145. { dup maxlength exch length sub 2 le
  146. } bind def
  147. /Expand
  148. { 1 index maxlength mul cvi dict
  149. dup begin exch { def } forall end
  150. } bind def
  151. /xput
  152. { 3 2 roll
  153. dup 3 index known not
  154. { dup AlmostFull? { 1.5 Expand } if
  155. } if
  156. dup 4 2 roll put
  157. } bind def
  158. /defineRes
  159. { _categories 1 index known not
  160. { /_categories _categories 2 index 10 dict xput store
  161. } if
  162. _categories exch 2 copy get 5 -1 roll 4 index xput put
  163. } bind def
  164. /findRes
  165. { _categories exch get exch get
  166. } bind def
  167. } EndLoad
  168. /cs
  169. {
  170. dup where { pop load } if
  171. dup /_fcs xdd
  172. ucs
  173. _cpcf exch get
  174. /_fc xdd
  175. /_fp null dd
  176. } bd
  177. /CS
  178. {
  179. dup where { pop load } if
  180. dup /_scs xdd ucs _cpcs exch get /_sc xdd /_sp null dd
  181. } bd
  182. /ucs {
  183. dup type /arraytype eq
  184. { dup 0 get
  185. dup /Indexed eq
  186. { pop 0 get }
  187. { /Pattern eq
  188. { dup length 2 eq
  189. { 1 get ucs }
  190. { 0 get }
  191. ifelse }
  192. { 0 get }
  193. ifelse }
  194. ifelse }
  195. if }
  196. bd
  197. /_cpcf
  198. 15 dict dup begin
  199. /DefaultGray _f1 def
  200. /DeviceGray _f1 def
  201. /DefaultRGB _f3 def
  202. /DeviceRGB _f3 def
  203. /DeviceCMYK _f4 def
  204. /CalGray _f1 def
  205. /CalRGB _f3 def
  206. /CalCMYK _f4 def
  207. /Lab _f3 def
  208. /Pattern _f0 def
  209. /Indexed _f1 def
  210. /Separation _f1 def
  211. /CIEBasedA _f1 def
  212. /CIEBasedABC _f3 def
  213. end
  214. dd
  215. /_cpcs
  216. 15 dict dup begin
  217. /DefaultGray _s1 def
  218. /DeviceGray _s1 def
  219. /DefaultRGB _s3 def
  220. /DeviceRGB _s3 def
  221. /DeviceCMYK _s4 def
  222. /CalGray _s1 def
  223. /CalRGB _s3 def
  224. /CalCMYK _s4 def
  225. /Lab _s3 def
  226. /Pattern _s0 def
  227. /Indexed _s1 def
  228. /Separation _s1 def
  229. /CIEBasedA _s1 def
  230. /CIEBasedABC _s3 def
  231. end
  232. dd
  233. Level2? not StartLoad {
  234. /ri/pop ld
  235. /makePat/pop ld
  236. } EndLoad
  237. Level2? StartLoad {
  238. /ri
  239. {
  240. /findcolorrendering isdefined?
  241. {
  242. mark exch
  243. findcolorrendering
  244. counttomark 2 eq
  245. { type /booleantype eq
  246. { dup type /nametype eq
  247. { dup /ColorRendering resourcestatus
  248. { pop pop
  249. dup /DefaultColorRendering ne
  250. {
  251. /ColorRendering findresource
  252. setcolorrendering
  253. } if
  254. } if
  255. } if
  256. } if
  257. } if
  258. cleartomark
  259. }
  260. { pop
  261. } ifelse
  262. } bd
  263. /makePat /makepattern ld
  264. } EndLoad
  265. Level2? not _ColorSep5044? or StartLoad
  266. {
  267. /L1setcolor {
  268. aload length
  269. dup 0 eq
  270. { pop .5 setgray }
  271. { dup 1 eq
  272. { pop setgray }
  273. { 3 eq
  274. { setrgbcolor }
  275. { setcmykcolor }
  276. ifelse }
  277. ifelse }
  278. ifelse
  279. } bind dd
  280. /_sfcs { } dd
  281. /_sscs { } dd
  282. } EndLoad
  283. Level2? not _ColorSep5044? not and StartLoad
  284. {
  285. /_sfc { _fc L1setcolor } dd
  286. /_ssc { _sc L1setcolor } dd
  287. } EndLoad
  288. Level2? _ColorSep5044? not and StartLoad
  289. {
  290. /_sfcs
  291. {
  292. _fcs setcolorspace
  293. } bind dd
  294. /_sscs
  295. {
  296. _scs setcolorspace
  297. } bind dd
  298. /_sfc
  299. {
  300. _fc aload pop
  301. _fp null eq
  302. { setcolor }
  303. { _fp setpattern }
  304. ifelse
  305. } bind dd
  306. /_ssc
  307. {
  308. _sc aload pop
  309. _sp null eq { setcolor } { _sp setpattern } ifelse
  310. } bind dd
  311. } EndLoad
  312. /sc
  313. {
  314. _fc astore pop
  315. ilp
  316. } bd
  317. /SC
  318. {
  319. _sc astore pop
  320. ilp
  321. } bd
  322. /scn {
  323. dup type /dicttype eq
  324. { dup /_fp xdd
  325. /PaintType get 1 eq
  326. { /_fc _f0 dd ilp }
  327. { /_fc _cpcf _fcs ucs get dd
  328. sc }
  329. ifelse }
  330. { sc }
  331. ifelse
  332. } bd
  333. /SCN {
  334. dup type /dicttype eq
  335. { dup /_sp xdd
  336. /PaintType get 1 eq
  337. { /_sc _s0 dd ilp }
  338. { /_sc _cpcs _scs ucs get dd
  339. SC }
  340. ifelse }
  341. { SC }
  342. ifelse
  343. } bd
  344. /g { /DefaultGray cs sc } bd
  345. /rg { /DefaultRGB cs sc } bd
  346. /k { /DeviceCMYK cs sc } bd
  347. /G { /DefaultGray CS SC } bd
  348. /RG { /DefaultRGB CS SC } bd
  349. /K { /DeviceCMYK CS SC } bd
  350. /cm { _mtx astore concat } bd
  351. /re {
  352. 4 2 roll m
  353. 1 index 0 rlineto
  354. 0 exch rlineto
  355. neg 0 rlineto
  356. h
  357. } bd
  358. /RC/rectclip ld
  359. /EF/execform ld
  360. /PS { cvx exec } bd
  361. /initgs {
  362. /DefaultGray where
  363. { pop }
  364. { /DefaultGray /DeviceGray dd }
  365. ifelse
  366. /DefaultRGB where
  367. { pop }
  368. { /DefaultRGB /DeviceRGB dd }
  369. ifelse
  370. 0 g 0 G
  371. [] 0 d 0 j 0 J 10 M 1 w
  372. true setSA
  373. } bd
  374. 21 dict dup begin
  375. /CosineDot
  376. { 180 mul cos exch 180 mul cos add 2 div } bd
  377. /Cross
  378. { abs exch abs 2 copy gt { exch } if pop neg } bd
  379. /Diamond
  380. { abs exch abs 2 copy add .75 le
  381. { dup mul exch dup mul add 1 exch sub }
  382. { 2 copy add 1.23 le
  383. { .85 mul add 1 exch sub }
  384. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  385. ifelse }
  386. ifelse } bd
  387. /Double
  388. { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add } bd
  389. /DoubleDot
  390. { 2 { 360 mul sin 2 div exch } repeat add } bd
  391. /Ellipse
  392. { abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt
  393. { pop dup mul exch .75 div dup mul add 4 div
  394. 1 exch sub }
  395. { dup 1 gt
  396. {pop 1 exch sub dup mul exch 1 exch sub
  397. .75 div dup mul add 4 div 1 sub }
  398. { .5 exch sub exch pop exch pop }
  399. ifelse }
  400. ifelse } bd
  401. /EllipseA
  402. { dup mul .9 mul exch dup mul add 1 exch sub } bd
  403. /EllipseB
  404. { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub } bd
  405. /EllipseC
  406. { dup .5 gt { 1 exch sub } if
  407. dup .25 ge
  408. { .5 exch sub 4 mul dup mul 1 sub }
  409. { 4 mul dup mul 1 exch sub }
  410. ifelse
  411. exch
  412. dup .5 gt { 1 exch sub } if
  413. dup .25 ge
  414. { .5 exch sub 4 mul dup mul 1 sub }
  415. { 4 mul dup mul 1 exch sub }
  416. ifelse
  417. add -2 div } bd
  418. /InvertedDouble
  419. { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg } bd
  420. /InvertedDoubleDot
  421. { 2 { 360 mul sin 2 div exch } repeat add neg } bd
  422. /InvertedEllipseA
  423. { dup mul .9 mul exch dup mul add 1 sub } bd
  424. /InvertedSimpleDot
  425. { dup mul exch dup mul add 1 sub } bd
  426. /Line
  427. { exch pop abs neg } bd
  428. /LineX
  429. { pop } bd
  430. /LineY
  431. { exch pop } bd
  432. /Rhomboid
  433. { abs exch abs 0.9 mul add 2 div } bd
  434. /Round
  435. { abs exch abs 2 copy add 1 le
  436. { dup mul exch dup mul add 1 exch sub }
  437. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  438. ifelse } bd
  439. /SimpleDot
  440. { dup mul exch dup mul add 1 exch sub } bd
  441. /Square
  442. { abs exch abs 2 copy lt { exch } if pop neg } bd
  443. end
  444. { /Function defineRes pop } forall
  445. /Identity {} /Function defineRes pop
  446. Level2? StartLoad {
  447. /gs
  448. {
  449. begin
  450. /SA here { setstrokeadjust } if
  451. /OP here { setoverprint } if
  452. /BG here { setblackgeneration } if
  453. /UCR here { setundercolorremoval } if
  454. /HT here { sethalftone } if
  455. /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
  456. /TR here
  457. {
  458. dup xcheck { settransfer } { aload pop setcolortransfer } ifelse
  459. } if
  460. end
  461. } bd
  462. { /Default /Halftone findresource pop } stopped
  463. {
  464. currenthalftone exch defineresource pop }
  465. if
  466. } EndLoad
  467. Level2? not StartLoad {
  468. /gs
  469. {
  470. begin
  471. /SA here { /_sa? xdd } if
  472. /OP here { dup /_op? xdd
  473. /setoverprint where {pop setoverprint}
  474. {pop} ifelse
  475. } if
  476. /HT here { sethalftone } if
  477. /TR here { dup xcheck
  478. { settransfer }
  479. { pop }
  480. ifelse } if
  481. end
  482. } bd
  483. 5 dict dup
  484. begin
  485. currentscreen 1 [/HalftoneType /SpotFunction /Angle /Frequency]
  486. { exch def } forall
  487. end
  488. /Default exch /Halftone defineRes pop
  489. } EndLoad
  490. /int {
  491. dup 2 index sub 3 index 5 index sub div 6 -2 roll sub mul
  492. exch pop add exch pop
  493. } bd
  494. /limit {
  495. dup 2 index le { exch } if pop
  496. dup 2 index ge { exch } if pop
  497. } bd
  498. _ColorSep5044? StartLoad {
  499. /_sfc
  500. {
  501. _fp null eq
  502. { _fcs type /arraytype eq
  503. {_fcs 0 get /Separation eq
  504. {
  505. _fcs 1 get /All eq
  506. {
  507. _fc aload pop 1 exch sub
  508. /setseparationgray where pop begin setseparationgray end
  509. }
  510. {
  511. 1 _fcs 3 get exec _fcs 1 get
  512. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  513. _fc aload pop
  514. /setcustomcolor where pop begin setcustomcolor end
  515. }
  516. ifelse
  517. }
  518. { _fc L1setcolor }
  519. ifelse
  520. }
  521. { _fc L1setcolor }
  522. ifelse
  523. }
  524. { _fp setpattern }
  525. ifelse
  526. } bind dd
  527. /_ssc
  528. {
  529. _sp null eq
  530. { _scs type /arraytype eq
  531. {_scs 0 get /Separation eq
  532. {
  533. _scs 1 get /All eq
  534. {
  535. _sc aload pop 1 exch sub
  536. /setseparationgray where pop begin setseparationgray end
  537. }
  538. {
  539. 1 _scs 3 get exec _scs 1 get
  540. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  541. _sc aload pop
  542. /setcustomcolor where pop begin setcustomcolor end
  543. }
  544. ifelse
  545. }
  546. { _sc L1setcolor }
  547. ifelse
  548. }
  549. { _sc L1setcolor }
  550. ifelse
  551. }
  552. { _sp setpattern }
  553. ifelse
  554. } bind dd
  555. } EndLoad
  556. %%EndFile
  557.